home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Development Tools / Interfaces / PInterfaces / AERegistry.p < prev    next >
Text File  |  1992-11-20  |  12KB  |  502 lines
  1. {
  2. Created: 1:36 PM Fri, 20 Nov 1992
  3.     AERegistry.p
  4.     Pascal Interface to the Apple Event Registry
  5.  
  6.         Copyright Apple Computer, Inc.    1992
  7.         All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT AERegistry;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingAERegistry}
  21. {$SETC UsingAERegistry := 1}
  22.  
  23. {$I+}
  24. {$SETC AERegistryIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingTypes}
  27. {$I $$Shell(PInterfaces)Types.p}
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingAppleEvents}
  30. {$I $$Shell(PInterfaces)AppleEvents.p}
  31. {$ENDC}
  32. {$SETC UsingIncludes := AERegistryIncludes}
  33.  
  34. CONST
  35.     cAEList = 'list';
  36.     cApplication = 'capp';
  37.     cArc = 'carc';
  38.     cBoolean = 'bool';
  39.     cCell = 'ccel';
  40.     cChar = 'cha ';
  41.     cColorTable = 'clrt';
  42.     cColumn = 'ccol';
  43.     cDocument = 'docu';
  44.     cDrawingArea = 'cdrw';
  45.     cEnumeration = 'enum';
  46.     cFile = 'file';
  47.     cFixed = 'fixd';
  48.     cFixedPoint = 'fpnt';
  49.     cFixedRectangle = 'frct';
  50.     cGraphicLine = 'glin';
  51.     cGraphicObject = 'cgob';
  52.     cGraphicShape = 'cgsh';
  53.     cGraphicText = 'cgtx';
  54.     cGroupedGraphic = 'cpic';
  55.     cInsertionLoc = 'insl';
  56.     cInsertionPoint = 'cins';
  57.     cIntlText = 'itxt';
  58.     cIntlWritingCode = 'intl';
  59.     cItem = 'citm';
  60.     cLine = 'clin';
  61.     cLongDateTime = 'ldt ';
  62.     cLongFixed = 'lfxd';
  63.     cLongFixedPoint = 'lfpt';
  64.     cLongFixedRectangle = 'lfrc';
  65.     cLongInteger = 'long';
  66.     cLongPoint = 'lpnt';
  67.     cLongRectangle = 'lrct';
  68.     cMachineLoc = 'mLoc';
  69.     cMenu = 'cmnu';
  70.     cMenuItem = 'cmen';
  71.     cObject = 'cobj';
  72.     cObjectSpecifier = 'obj ';
  73.     cOpenableObject = 'coob';
  74.     cOval = 'covl';
  75.     cParagraph = 'cpar';
  76.     cPICT = 'PICT';
  77.     cPixel = 'cpxl';
  78.     cPixelMap = 'cpix';
  79.     cPolygon = 'cpgn';
  80.     cProperty = 'prop';
  81.     cQDPoint = 'QDpt';
  82.     cQDRectangle = 'qdrt';
  83.     cRectangle = 'crec';
  84.     cRGBColor = 'cRGB';
  85.     cRotation = 'trot';
  86.     cRoundedRectangle = 'crrc';
  87.     cRow = 'crow';
  88.     cSelection = 'csel';
  89.     cShortInteger = 'shor';
  90.     cTable = 'ctbl';
  91.     cText = 'ctxt';
  92.     cTextFlow = 'cflo';
  93.     cTextStyles = 'tsty';
  94.     cType = 'type';
  95.     cVersion = 'vers';
  96.     cWindow = 'cwin';
  97.     cWord = 'cwor';
  98.     enumArrows = 'arro';
  99.     enumJustification = 'just';
  100.     enumKeyForm = 'kfrm';
  101.     enumPosition = 'posi';
  102.     enumProtection = 'prtn';
  103.     enumQuality = 'qual';
  104.     enumSaveOptions = 'savo';
  105.     enumStyle = 'styl';
  106.     enumTransferMode = 'tran';
  107.     errAEBadKeyForm = -10002;
  108.     errAECantHandleClass = -10010;
  109.     errAECantSupplyType = -10009;
  110.     errAEEventFailed = -10000;
  111.     errAEIndexTooLarge = -10007;
  112.     errAEInTransaction = -10011;
  113.     errAELocalOnly = -10016;
  114.     errAENoSuchTransaction = -10012;
  115.     errAENotAnElement = -10008;
  116.     errAENotASingleObject = -10014;
  117.     errAENotModifiable = -10003;
  118.     errAENoUserSelection = -10013;
  119.     errAEPrivilegeError = -10004;
  120.     errAEReadDenied = -10005;
  121.     errAETypeError = -10001;
  122.     errAEWriteDenied = -10006;
  123.     formUniqueID = 'ID  ';
  124.     kAEAbout = 'abou';
  125.     kAEAfter = 'afte';
  126.     kAEAliasSelection = 'sali';
  127.     kAEAllCaps = 'alcp';
  128.     kAEArrowAtEnd = 'aren';
  129.     kAEArrowAtStart = 'arst';
  130.     kAEArrowBothEnds = 'arbo';
  131.     kAEAsk = 'ask ';
  132.     kAEBefore = 'befo';
  133.     kAEBeginning = 'bgng';
  134.     kAEBeginsWith = 'bgwt';
  135.     kAEBeginTransaction = 'begi';
  136.     kAEBold = 'bold';
  137.     kAECaseSensEquals = 'cseq';
  138.     kAECentered = 'cent';
  139.     kAEChangeView = 'view';
  140.     kAEClone = 'clon';
  141.     kAEClose = 'clos';
  142.     kAECondensed = 'cond';
  143.     kAEContains = 'cont';
  144.     kAECopy = 'copy';
  145.     kAECoreSuite = 'core';
  146.     kAECountElements = 'cnte';
  147.     kAECreateElement = 'crel';
  148.     kAECreatePublisher = 'cpub';
  149.     kAECut = 'cut ';
  150.     kAEDelete = 'delo';
  151.     kAEDoObjectsExist = 'doex';
  152.     kAEDoScript = 'dosc';
  153.     kAEDrag = 'drag';
  154.     kAEDuplicateSelection = 'sdup';
  155.     kAEEditGraphic = 'edit';
  156.     kAEEmptyTrash = 'empt';
  157.     kAEEnd = 'end ';
  158.     kAEEndsWith = 'ends';
  159.     kAEEndTransaction = 'endt';
  160.     kAEEquals = '=   ';
  161.     kAEExpanded = 'pexp';
  162.     kAEFast = 'fast';
  163.     kAEFinderEvents = 'FNDR';
  164.     kAEFormulaProtect = 'fpro';
  165.     kAEFullyJustified = 'full';
  166.     kAEGetClassInfo = 'qobj';
  167.     kAEGetData = 'getd';
  168.     kAEGetDataSize = 'dsiz';
  169.     kAEGetEventInfo = 'gtei';
  170.     kAEGetInfoSelection = 'sinf';
  171.     kAEGetPrivilegeSelection = 'sprv';
  172.     kAEGetSuiteInfo = 'gtsi';
  173.     kAEGreaterThan = '>   ';
  174.     kAEGreaterThanEquals = '>=  ';
  175.     kAEGrow = 'grow';
  176.     kAEHidden = 'hidn';
  177.     kAEHiQuality = 'hiqu';
  178.     kAEImageGraphic = 'imgr';
  179.     kAEInfo = 11;
  180.     kAEIsUniform = 'isun';
  181.     kAEItalic = 'ital';
  182.     kAELeftJustified = 'left';
  183.     kAELessThan = '<   ';
  184.     kAELessThanEquals = '<=  ';
  185.     kAELowercase = 'lowc';
  186.     kAEMain = 0;
  187.     kAEMakeObjectsVisible = 'mvis';
  188.     kAEMiscStandards = 'misc';
  189.     kAEModifiable = 'modf';
  190.     kAEMove = 'move';
  191.     kAENo = 'no  ';
  192.     kAENoArrow = 'arno';
  193.     kAENonmodifiable = 'nmod';
  194.     kAEOpen = 'odoc';
  195.     kAEOpenSelection = 'sope';
  196.     kAEOutline = 'outl';
  197.     kAEPageSetup = 'pgsu';
  198.     kAEPaste = 'past';
  199.     kAEPlain = 'plan';
  200.     kAEPrint = 'pdoc';
  201.     kAEPrintSelection = 'spri';
  202.     kAEPrintWindow = 'pwin';
  203.     kAEPutAwaySelection = 'sput';
  204.     kAEQDAddOver = 'addo';
  205.     kAEQDAddPin = 'addp';
  206.     kAEQDAdMax = 'admx';
  207.     kAEQDAdMin = 'admn';
  208.     kAEQDBic = 'bic ';
  209.     kAEQDBlend = 'blnd';
  210.     kAEQDCopy = 'cpy ';
  211.     kAEQDNotBic = 'nbic';
  212.     kAEQDNotCopy = 'ncpy';
  213.     kAEQDNotOr = 'ntor';
  214.     kAEQDNotXor = 'nxor';
  215.     kAEQDOr = 'or  ';
  216.     kAEQDSubOver = 'subo';
  217.     kAEQDSubPin = 'subp';
  218.     kAEQDSupplementalSuite = 'qdsp';
  219.     kAEQDXor = 'xor ';
  220.     kAEQuickdrawSuite = 'qdrw';
  221.     kAERedo = 'redo';
  222.     kAERegular = 'regl';
  223.     kAEReplace = 'rplc';
  224.     kAERequiredSuite = 'reqd';
  225.     kAERestart = 'rest';
  226.     kAERevealSelection = 'srev';
  227.     kAERevert = 'rvrt';
  228.     kAERightJustified = 'rght';
  229.     kAESave = 'save';
  230.     kAESelect = 'slct';
  231.     kAESetData = 'setd';
  232.     kAESetPosition = 'posn';
  233.     kAEShadow = 'shad';
  234.     kAESharing = 13;
  235.     kAEShowClipboard = 'shcl';
  236.     kAEShutDown = 'shut';
  237.     kAESleep = 'slep';
  238.     kAESmallCaps = 'smcp';
  239.     kAESpecialClassProperties = 'c@#!';
  240.     kAEStrikethrough = 'strk';
  241.     kAESubscript = 'sbsc';
  242.     kAESuperscript = 'spsc';
  243.     kAETableSuite = 'tbls';
  244.     kAETextSuite = 'TEXT';
  245.     kAETransactionTerminated = 'ttrm';
  246.     kAEUnderline = 'undl';
  247.     kAEUndo = 'undo';
  248.     kAEWholeWordEquals = 'wweq';
  249.     kAEYes = 'yes ';
  250.     kAEZoom = 'zoom';
  251.     kByCommentView = 6;
  252.     kByDateView = 3;
  253.     kByIconView = 1;
  254.     kByKindView = 5;
  255.     kByLabelView = 7;
  256.     kByNameView = 2;
  257.     kBySizeView = 4;
  258.     kBySmallIcon = 0;
  259.     kByVersionView = 8;
  260.     keyAEAngle = 'kang';
  261.     keyAEArcAngle = 'parc';
  262.     keyAEBaseAddr = 'badd';
  263.     keyAEBestType = 'pbst';
  264.     keyAEBgndColor = 'kbcl';
  265.     keyAEBgndPattern = 'kbpt';
  266.     keyAEBounds = 'pbnd';
  267.     keyAECellList = 'kclt';
  268.     keyAEClassID = 'clID';
  269.     keyAEColor = 'colr';
  270.     keyAEColorTable = 'cltb';
  271.     keyAECurveHeight = 'kchd';
  272.     keyAECurveWidth = 'kcwd';
  273.     keyAEDashStyle = 'pdst';
  274.     keyAEData = 'data';
  275.     keyAEDefaultType = 'deft';
  276.     keyAEDefinitionRect = 'pdrt';
  277.     keyAEDescType = 'dstp';
  278.     keyAEDestination = 'dest';
  279.     keyAEDoAntiAlias = 'anta';
  280.     keyAEDoDithered = 'gdit';
  281.     keyAEDoRotate = 'kdrt';
  282.     keyAEDoScale = 'ksca';
  283.     keyAEDoTranslate = 'ktra';
  284.     keyAEEditionFileLoc = 'eloc';
  285.     keyAEElements = 'elms';
  286.     keyAEEndPoint = 'pend';
  287.     keyAEEventClass = 'evcl';
  288.     keyAEEventID = 'evti';
  289.     keyAEFile = 'kfil';
  290.     keyAEFileType = 'fltp';
  291.     keyAEFillColor = 'flcl';
  292.     keyAEFillPattern = 'flpt';
  293.     keyAEFlipHorizontal = 'kfho';
  294.     keyAEFlipVertical = 'kfvt';
  295.     keyAEFont = 'font';
  296.     keyAEFormula = 'pfor';
  297.     keyAEGraphicObjects = 'gobs';
  298.     keyAEID = 'ID  ';
  299.     keyAEImageQuality = 'gqua';
  300.     keyAEInsertHere = 'insh';
  301.     keyAEKeyForms = 'keyf';
  302.     keyAEKeyword = 'kywd';
  303.     keyAELevel = 'levl';
  304.     keyAELineArrow = 'arro';
  305.     keyAEName = 'pnam';
  306.     keyAENewElementLoc = 'pnel';
  307.     keyAEObject = 'kobj';
  308.     keyAEObjectClass = 'kocl';
  309.     keyAEOffStyles = 'ofst';
  310.     keyAEOnStyles = 'onst';
  311.     keyAEParameters = 'prms';
  312.     keyAEParamFlags = 'pmfg';
  313.     keyAEPenColor = 'ppcl';
  314.     keyAEPenPattern = 'pppa';
  315.     keyAEPenWidth = 'ppwd';
  316.     keyAEPixelDepth = 'pdpt';
  317.     keyAEPixMapMinus = 'kpmm';
  318.     keyAEPMTable = 'kpmt';
  319.     keyAEPointList = 'ptlt';
  320.     keyAEPointSize = 'ptsz';
  321.     keyAEPosition = 'kpos';
  322.     keyAEPropData = 'prdt';
  323.     keyAEProperties = 'qpro';
  324.     keyAEProperty = 'kprp';
  325.     keyAEPropFlags = 'prfg';
  326.     keyAEPropID = 'prop';
  327.     keyAEProtection = 'ppro';
  328.     keyAERenderAs = 'kren';
  329.     keyAERequestedType = 'rtyp';
  330.     keyAEResult = '----';
  331.     keyAEResultInfo = 'rsin';
  332.     keyAERotation = 'prot';
  333.     keyAERotPoint = 'krtp';
  334.     keyAERowList = 'krls';
  335.     keyAESaveOptions = 'savo';
  336.     keyAEScale = 'pscl';
  337.     keyAEScriptTag = 'psct';
  338.     keyAEShowWhere = 'show';
  339.     keyAEStartAngle = 'pang';
  340.     keyAEStartPoint = 'pstp';
  341.     keyAEStyles = 'ksty';
  342.     keyAESuiteID = 'suit';
  343.     keyAEText = 'ktxt';
  344.     keyAETextColor = 'ptxc';
  345.     keyAETextFont = 'ptxf';
  346.     keyAETextPointSize = 'ptps';
  347.     keyAETextStyles = 'txst';
  348.     keyAETheText = 'thtx';
  349.     keyAETransferMode = 'pptm';
  350.     keyAETranslation = 'ptrs';
  351.     keyAETryAsStructGraf = 'toog';
  352.     keyAEUniformStyles = 'ustl';
  353.     keyAEUpdateOn = 'pupd';
  354.     keyAEUserTerm = 'utrm';
  355.     keyAEWindow = 'wndw';
  356.     keyAEWritingCode = 'wrcd';
  357.     keyMiscellaneous = 'fmsc';
  358.     keySelection = 'fsel';
  359.     keyWindow = 'kwnd';
  360.     pArcAngle = 'parc';
  361.     pBackgroundColor = 'pbcl';
  362.     pBackgroundPattern = 'pbpt';
  363.     pBestType = 'pbst';
  364.     pBounds = 'pbnd';
  365.     pClass = 'pcls';
  366.     pClipboard = 'pcli';
  367.     pColor = 'colr';
  368.     pColorTable = 'cltb';
  369.     pContents = 'pcnt';
  370.     pCornerCurveHeight = 'pchd';
  371.     pCornerCurveWidth = 'pcwd';
  372.     pDashStyle = 'pdst';
  373.     pDefaultType = 'deft';
  374.     pDefinitionRect = 'pdrt';
  375.     pEnabled = 'enbl';
  376.     pEndPoint = 'pend';
  377.     pFillColor = 'flcl';
  378.     pFillPattern = 'flpt';
  379.     pFont = 'font';
  380.     pFormula = 'pfor';
  381.     pGraphicObjects = 'gobs';
  382.     pHasCloseBox = 'hclb';
  383.     pHasTitleBar = 'ptit';
  384.     pID = 'ID  ';
  385.     pIndex = 'pidx';
  386.     pInsertionLoc = 'pins';
  387.     pIsFloating = 'isfl';
  388.     pIsFrontProcess = 'pisf';
  389.     pIsModal = 'pmod';
  390.     pIsModified = 'imod';
  391.     pIsResizable = 'prsz';
  392.     pIsStationeryPad = 'pspd';
  393.     pIsZoomable = 'iszm';
  394.     pIsZoomed = 'pzum';
  395.     pItemNumber = 'itmn';
  396.     pJustification = 'pjst';
  397.     pLineArrow = 'arro';
  398.     pMenuID = 'mnid';
  399.     pName = 'pnam';
  400.     pNewElementLoc = 'pnel';
  401.     pPenColor = 'ppcl';
  402.     pPenPattern = 'pppa';
  403.     pPenWidth = 'ppwd';
  404.     pPixelDepth = 'pdpt';
  405.     pPointList = 'ptlt';
  406.     pPointSize = 'ptsz';
  407.     pProtection = 'ppro';
  408.     pRotation = 'prot';
  409.     pScale = 'pscl';
  410.     pScriptTag = 'psct';
  411.     pSelected = 'selc';
  412.     pSelection = 'sele';
  413.     pStartAngle = 'pang';
  414.     pStartPoint = 'pstp';
  415.     pTextColor = 'ptxc';
  416.     pTextFont = 'ptxf';
  417.     pTextItemDelimiters = 'txdl';
  418.     pTextPointSize = 'ptps';
  419.     pTextStyles = 'txst';
  420.     pTransferMode = 'pptm';
  421.     pTranslation = 'ptrs';
  422.     pUniformStyles = 'ustl';
  423.     pUpdateOn = 'pupd';
  424.     pUserSelection = 'pusl';
  425.     pVersion = 'vers';
  426.     pVisible = 'pvis';
  427.     typeAEText = 'tTXT';
  428.     typeArc = 'carc';
  429.     typeBest = 'best';
  430.     typeCell = 'ccel';
  431.     typeClassInfo = 'clin';
  432.     typeColorTable = 'clrt';
  433.     typeColumn = 'ccol';
  434.     typeDashStyle = 'tdas';
  435.     typeData = 'tdta';
  436.     typeDrawingArea = 'cdrw';
  437.     typeElemInfo = 'elin';
  438.     typeEnumeration = 'enum';
  439.     typeEPS = 'EPS ';
  440.     typeEventInfo = 'evin';
  441.     typeFinderWindow = 'fwin';
  442.     typeFixed = 'fixd';
  443.     typeFixedPoint = 'fpnt';
  444.     typeFixedRectangle = 'frct';
  445.     typeGraphicLine = 'glin';
  446.     typeGraphicText = 'cgtx';
  447.     typeGroupedGraphic = 'cpic';
  448.     typeInsertionLoc = 'insl';
  449.     typeIntlText = 'itxt';
  450.     typeIntlWritingCode = 'intl';
  451.     typeLongDateTime = 'ldt ';
  452.     typeLongFixed = 'lfxd';
  453.     typeLongFixedPoint = 'lfpt';
  454.     typeLongFixedRectangle = 'lfrc';
  455.     typeLongPoint = 'lpnt';
  456.     typeLongRectangle = 'lrct';
  457.     typeMachineLoc = 'mLoc';
  458.     typeOval = 'covl';
  459.     typeParamInfo = 'pmin';
  460.     typePict = 'PICT';
  461.     typePixelMap = 'cpix';
  462.     typePixMapMinus = 'tpmm';
  463.     typePolygon = 'cpgn';
  464.     typePropInfo = 'pinf';
  465.     typeQDPoint = 'QDpt';
  466.     typeQDRectangle = 'qdrt';
  467.     typeRectangle = 'crec';
  468.     typeRGB16 = 'tr16';
  469.     typeRGB96 = 'tr96';
  470.     typeRGBColor = 'cRGB';
  471.     typeRotation = 'trot';
  472.     typeRoundedRectangle = 'crrc';
  473.     typeRow = 'crow';
  474.     typeScrapStyles = 'styl';
  475.     typeStyledText = 'STXT';
  476.     typeSuiteInfo = 'suin';
  477.     typeTable = 'ctbl';
  478.     typeTextStyles = 'tsty';
  479.     typeTIFF = 'TIFF';
  480.     typeVersion = 'vers';
  481.     zoomIn = 7;
  482.     zoomOut = 8;
  483.  
  484. TYPE
  485. WritingCode = RECORD
  486.     theScriptCode    : ScriptCode;
  487.     theLangCode        : LangCode;
  488.     END;
  489.  
  490. IntlText    = RECORD
  491.     theScriptCode    : ScriptCode;
  492.     theLangCode        : LangCode;
  493.     theText            : PACKED ARRAY [0..0] OF CHAR;
  494.     { variable length data }
  495.     END;
  496.  
  497. {$ENDC}    { UsingAERegistry }
  498.  
  499. {$IFC NOT UsingIncludes}
  500.     END.
  501. {$ENDC}
  502.